8bitfiles.net/archives/archives.tar/archives/commodore-scene-files/Coverdisks/CS/CSCD033A.D64/03. the first

Commodore BASIC | 2019-04-13 | 34.3 KB | 5 lines

10046 SQRkl$$$\GOSUB$STEP***ERROR***GET%INPUT#!CONT***ERROR***,=    *4***ERROR***CMD***ERROR***#EXPSYS'****ERROR******ERROR***DIM/h$ VERIFYEXP$***ERROR******ERROR******ERROR******ERROR******ERROR***  ***ERROR******ERROR******ERROR******ERROR***FOR***ERROR***^<VERIFYnnRETURNVERIFYSQR
'***ERROR******ERROR***%***ERROR***`***ERROR***&***ERROR***+VERIFYINT    SQR FOR ***ERROR******ERROR******ERROR******ERROR******ERROR***NEWNOTVERIFYGETANDSQR FORAND***ERROR***"!¿╘ßΓ¿Γ»ò╡    ║ ü hg ò║ ╡    ü ε⌠▄╘üó¿òí»║ òÄ║ ü»⌠"!NOT***ERROR***+***ERROR***NOT***ERROR***AND^INT    FOR ***ERROR***LEFT$FOR    NEXT
GETRUNNEWIFGOSUBGET%|h$tPEEK***ERROR***&PEEKDPEEK    ***ERROR***&PEEK
D$,DSGNSGNSn***ERROR******ERROR******ERROR***CHR$LEN***ERROR******ERROR***pqYYiIAUZ[o[ZUZ***ERROR******ERROR***RETURN***ERROR***Z+Vu}w]}WYSIN***ERROR***RND/SIN/USR***ERROR***RND***ERROR***EXP***ERROR***USR***ERROR******ERROR******ERROR***+SQR***ERROR***RNDCOSANDCOSAND^~z***ERROR***Z***ERROR******ERROR******ERROR***CONTLISTCMDSYSOPENCLRPOKE+_OPENgTHENTHEN'POKEZooSINAND[[Vf VERIFY***ERROR***[***ERROR***RND-***ERROR******ERROR******ERROR***VERIFYZ***ERROR******ERROR******ERROR******ERROR*** SINm/m***ERROR******ERROR***FNSYSOPEN_THENTHENSTEPPRINT ***ERROR***ABS***ERROR***ABSfV[koFREcPOSPOS^egnmolkUZ***ERROR***v***ERROR******ERROR***6***ERROR***j***ERROR******ERROR***RNDRNDSQRABSSPC(fSTEPjieegU***ERROR******ERROR******ERROR******ERROR***w***ERROR******ERROR******ERROR******ERROR******ERROR******ERROR******ERROR******ERROR******ERROR******ERROR******ERROR******ERROR******ERROR******ERROR******ERROR******ERROR******ERROR***]^f+f+feem***ERROR***-RND***ERROR***}***ERROR***}***ERROR******ERROR******ERROR******ERROR***g***ERROR***g***ERROR******ERROR***Ufjj***ERROR******ERROR******ERROR******ERROR***+RNDSINSINooYY{
}CMDNDEF*